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0 p++ 
8 Facility: RMS 
8 ; Abstract: 
0 This module communicates with the File Access Listener (FAL) at the 
0 remote node to create the specified file. 

Environment: VAX/VMS, executive mode 

Author: James A. Krycka, Creation Date: 09-DEC-1977 

Modified By: 

v03-011 poise J A Krycka 10-APR-1984 


ix inconsistency in handling MRS value when dealing with a 
4. FAL that uses a stream-based file system. 


v03-011 JAKO138 cka 28-MAR-1984 
Call modified NTSEXCH NE routine with a parameter. 
General cleanup. 


V03-010 JAKO124 J A Krycka 06-SEP-1983 
Make corres rt ps source code change for VMS V3.5 patch in 
support of VAXE 


V03-009 JAKO119 J A Krycka 16-JUL-1983 
Return an error if any "Journet ing options are requested. 


v03-008 KPLO001 Peter Lieberwirth 23-May-1983 
Fix assembly error. 


V03-007 KRMO088 Karl Malik 18-Mar-1983 
Add sup pport for STMCR and STMLF file formats. Also, removed 
use of DAPS$V_STM bit using NWASB_RFM field instead. 


v03-006 KRM0078 Karl Malik 10-Dec-1982 
Add status check 0 a call to RM$SETALLOC in NTSCREATE. 


v03~005 KBT0410 h_B. Thom 30-Nov-1982 
Change IFB$W_ DevBursiz to 1FB t °DEVBUF S12. 
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; Equated Symbols: 


ATE FILE 
S 

-SBTTL DECLARATIONS 
: Include Files: 


SDAPPLG 
SDAPHDR 


Macros: 


None 
ASSUME DAP$Q_DCODE_FLG EQ 0 
ASSUME NWASQ"FLG E& 0 


Own Storage: 


None 
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Define File Access Block symbols 
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Define Network Work Area symbols 
Define RMS completion codes 
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Define Allocation XAB symbols 
Define File Header Char XAB symbols 
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++ 
; NTSCREATE = en 


C 14 
: 15=SEP =138% ¢ ate $$ AX/VMS Macro V04-00 
NeTWORK CREATE FUNCT 5=SEP 6:2 RMS.SRCINTOCREATE.MAR; 1 


-SBTTL NTSCREATE = PERFORM NETWORK CREATE FUNCTION 


. gages in a DAP dialogue with the remote FAL to create the 
specified sequential, relative, or indexed file. 


; Calling Sequence: 


BSBW NTSCREATE 


; Input Parameters: 


R8 FAB address 
R9 IFAB address 
R10 FWA address 
R11 Impure Area address 


; Implicit Inputs: 


User FAB 
User ALL» DAT, FHC INL » KEY, PRO, and RDT XABs 
DAP$V_GEQ W394, pareve 56 


ASB_R 
NWASV_ “Vt STM 


; Output Parameters: 


RO Status code (RMS) 
R1i-R7 Destroyed 
AP Destroyed 


; Implicit Outputs: 


User FAB 
User ALLXABs 
HES gi S 


IFB$L_HBK 
IFB$V_DAP_OPEN 
Resultant name string stored in FWA 


; Completion Codes: 


Standard RMS completion codes 


; Side Effects: 


None 
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NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro Vv04-00 Pa 
v04-000 NTISCREATE = PERFORM NETWORK CREATE FUNCT ante Pi 95:38:58 RMS .SRCINTOCREATE.MAR; 1 ag 
0000 165 NTSCREATE:: ; Entry point 
0000 166 $TSTPT NICREATE aecirthe 
57 3C Ad D0 4 1o¢ MOVL IFBSL_NWA_PTR(RY) ,R7 ; Get address of NWA (and DAP) 
QOOOA 169 ;+ 
QOOA 170 ; Perform the ors FOP field preceesis : 
QOOA 171 ; (1) disallow the FOP options NFS and UFO. 
QO0A 17 ; (2) spore the FOP options CIF and DFW without returning an error as (IF is 
449 7 5 simulated via open/create and DFW is an unsupported performance option. 
000A 175° 
04 ASB 00030000 8F D3 QOOA 176 BITL #<<F ABSM_NFS>!- ; Branch if none are specified; 
ge pirnsiclortany —«f Stmpatedeetr'ekerageseee 
; unsupported over the networ 
03 13 0019 179 ya (ee : “a 
FFE9’ 31 0014 180 BRW NTSLCL_FOP ; Return RMS$_SUPPORT error and 
0017 181 3 exit with RMS code in RO 
0017 18 
0017 183 ;+ 
Baie 13 ; Exchange DAP Configuration messages with FAL and determine DAP buffer size. 
0017 186 * 
50 02 00 0017 #187 10$: MOVL #DAPSK_CREATE,RO ; Denote type of file access 
FFE3" 30 OQO1A 1388 BSBW NTSEXCA_CNF ; Exchange Configuration messages 
06 50 €9 001D 189 BLBC RO,FAILT 3; Branch on failure 
O2EF 30 0020 190 BSBW NT$CHK_ORG ; Check for supported organization 
0150 €8 0023 191 BLBS RO,BUICD_MASK ; Branch on success 
05 0026 192 FAIL1: RSB ; Exit with RMS code in RO 
0027 193 
0027 194 ;+ 
0027 195 ; First, build a mask (NWASW_BUILD) that will determine which optional DAP 
0027 196 ; messages to send to FAL. For $CREATE, these are the ALL, KEY, TIM and PRO 
tt 44 3 messages. 
0027 199 ; Second, build a request mask (NWASW_DISPLAY) that will be used in the Access 
0027 200 ; message to request that optional DAP messages be returned by FAL. For $CREATE, 
0027 201 ; these are the ALL and NAM messages. (Note that the Attributes message is 
ta a4 3 required which will supply information to update the FAB.) 
0027 204 ; Third, return an ‘unsupported over network’ error if any journaling options 
0027 205 ; are requested. 
0027 206 ;:- 
0027 207 é 
007 308 BUILD_MASK: ; Build NWASW_DISPLAY 
56 D4 0027 09 CLRL R6 : Indicate this is not a vlose epergt ton 
FFD4' 30 0029 210 BSBW = NT$SCAN_XABCHN ; Scan user XAB chain ana check FAL‘s 
002C 8211 ; capabilities; build request mask 
F7 50 E—9 O02C si BLBC RO,FAIL1 ; Branch on failure to complete scan 
52. 08 AA OSs 1 BICW2 #DAPSM_DSP_SUM,R2 ; Ignore Summary XAB in chain 
2 1D AB 91 bp 2 sié CMPB FABSB_ORG(R8) ,AFABSC_IDX; Branch if IDX organization 
03 13 0036 15 BEQL 0$ ; . . 
52 02 AA 0038 16 BICW2 #DAPSM_DSP_KEY,R ; Ignore Key Definition XAB in chain 
0002 C7? 52. B60 OR i? 10$: MOV R2,NWASW_BOILD(R7) ; Save build mask 
52 32 AA 0040 19 BICW2 #<<DAPSM_DSP_PRO>!- 3 ignore these XABs in chain because 
0043 $59 <DAPSM_DSP_TIM>!- hey are not updated on create 
0043 1 <DAPSM_DSP_KEY>!- 
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NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro V04-00 Page 
VOus000 NTSCREATE = PERFORM NETWORK CREATE FUNCT Seen 1384 £3 336338 RMS.SRCINTOCREATE .MAR; 1 ’ 
ek: § 0>,R2 : 
FFBA' 30 004 BSBW NT$SCAN_NAMBLK ; Scan user Name Block and check FAL's 
Bnee & ; capabilities; update request mask 
DD 50. =—«EY 338 5 BLBC RO,FAIL1 ; Branch on failure to complete scan 
36 01 AB 004 6 BISW2 #DAPSM_DSP_ATT,R2 ; Request main Attributes message 
00D0 ¢ 52 BO Boat f MOVW R2,NWASW_DISPLAY(R7) ; Save request mask 
O11E C7 B85 0051 9 TSTW NWASW_JNLXABJOP(R7) ; Ok, if no journaling options have 
3 13 0055 0 BEQL OVERRIDE _FAB ; _ been requeste 
FFA6' 31 Boar i BRW NTSLCL_JOP ; Declare RMS$_SUPPORT error and exit 
O5A 3+ 
BOgA 34 ; Override the ALQ, BKS, DEQ, and FOP fields of the FAB with cqrrespending 
005A 235 ; ALQ, BKZ, DEQ, and AOP fields of the Allocation XAB (area 0 for index files), 
Q05A $38 : if one is present. 
OOSA 7 3° 
OOSA 238 
QOSA 239 OVERRIDE_FAB: ; Update FAB from ALLXAB 
Q0000000'EF 16 005A 240 JSB RMSSETALLOC ; Update FAB with ALG, BKS, and DEQ 
0060 241 : fields from Allocation XAB (if 
0060 stg ; _present) and set-up default DEQ 
C350 £9 0060 24 BLBC RO,FAIL1 ; Branch on failure to update FAB 
20 1D AB 91 0063 244 CMPB FABSB_ORG(R8) ,AFABSC_IDX; Branch if IDX organization 
29 13 0067 245 BEQL SEND : 
56 0100 C7 DO 0069 246 MOVL NWASC_ALLXABADR(R7),R6 ; Get address of ALLXAB 
22. 13 «(006E § 86 247 BEQL ; Branch if not found 
5i 08 A6 9A 0070 248 MOVZBL XABSB_AOP(R6) ,R1 ; Get AOP bits ; 
52. D4 «60074 «= = 249 CLRL R2 ; Clear resultant FOP bits 
0076 250 $MAPBIT XABS$V_CTG,FABSV_CTG ; Map CTG bit 
OO7E 251 SMAPBIT XABSV_CBT,FABSV_CBT ; Map CBT bit 3 
04 A8 00300000 8F CA 0086 252 BICL2 #<<FABS$M_CTG>!- ; Clear affected FOP bits 
OO8E 253 <F ABSM_CBT>!- : 
O08E 254 0>, FABSL—FOP(R8) ; 
04 AB 52 C8 OOBE 255 BISL2 R2,FABSL_FOP(R8) 3; Update FOP from AOP 
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v04-000 NTSCREATE = PERFORM NETWORK CREATE FUNCT Peete 5:35:38 RMS.SRCINTOCREATE .MAR; 1 . (5) v0é 
09 S7 3¢ 
8 28 ; Build and send DAP Attributes message to partner. 
009 60 ; If the remote node is not a ‘stream only’ machine then create a file with 
194 61 ; the file attributes specified by the user. 
09 6¢ ; If, however, the remote node is a ‘stream only’ machine then: 
009 65 ; ) for block 1/0 mode accept . sequent jal file but specify to FAL that 
009 64 ; G = SEQ, RFM = FIX, RAT = 0, MRS = 512, and ALQ = user value. 
009 65 ; (2) for record 1/0 mode accept a sequential file heving stream-embedded 
009 66 ; format, or convert a sequential file in fixed-implied, variable-implied, 
009 67 ; or stream-implied format to stream-embedded format by specifying that 
B38 rt: 8 ORG = SEQ, RFM = STM, RAT = EMBEDDED, MRS = 514, and ALQ = 0. 
009 70 
009 71 SEND_ATT: ; (required message) 
50 02 900 009 ae MOVL #DAPSK_ATT_MSG,RO ; Get message type value 
FF68' 30 943 $7 BSBW NTSBUICD_HEAD ; Construct message header 
0098 275 ASSUME DAPSK_SEQ EQ FABSC_SEQ 
0098 276 ASSUME DAPSK-REL EQ FABSC_REL. 
0098 sie ASSUME DAPS$K_IDX EQ FABSC_IDX 
0098 78 
0098 444 ASSUME DAPSK_UDF EQ 0 
0098 80 ASSUME DAPSK_FIX EQ 1 
0098 281 ASSUME DAPS$K_VAR EQ ; 
0098 $e¢ ASSUME DAPSK_VFC EQ 
0098 28 ASSUME DAPSK~STM EQ 4 
0098 284 
0098 389 ASSUME DAPSK_UDF EQ FABSC_UDF 
0098 286 ASSUME DAPSK~FIX EQ FABSC_FIX | 
0098 287 ASSUME DAPSK_VAR EQ FABSC_VAR 
0098 288 ASSUME DAPSK_VFC EQ FABSC_VFC 
0098 289 ASSUME DAPSK_STM EQ FABSC_ STM 
0098 290 ASSUME DAPSK_STMLF EQ FABSC_STMLF 
434 $3 ASSUME DAPSK_STMCR EQ FABSC_STMCR | 
0098 35 ASSUME DAPS$V_FTN EQ FABSV_FIN | 
0098 94 ASSUME DAPS$V_ EQ FABSV_CR 
0098 295 ASSUME DAPS$V~PRN EQ FABSV~PR | 
0098 296 ASSUME DAPS$V_BLK EQ FABSV_BLK 
0098 297 
0098 98 ; ; 
0098 69 3; Construct attributes menu mask. 
$3 ee 
51 0000106F 8F DO 069 8 PART1: MOVL #<<DAPSM_DATATYPE>!- ; Always include DATATYPE, ORG, RFM, 
OO9F 0 <DAP$M_ORG>!- ; RAT, MRS, ALQ, and FOP fields in 
009F 04 <DAPS$M_RFM>!- 3; mask 
009F 05 <DAPSM_RAT>!- : | 
O9F 306 <DAPSM_MRS>! - : | 
9944 0 <DAPS$M_ALQ1>!- : 
O9F 308 <DAP$M_FOP1>!- ; | 
O9F 09 0>,R1 ; 3 ; 
00 1D A8 91 QO9F 10 CMPB FABSB_ORG(R8) .#FABSC_SEQ: Branch if SEQ organization  _—_ 
OE 13 O0A3 11 BEQL $ : not, it's REL or IDX organization 
OA} 1 $SETBIT #DAPSV_BKS,R1 : Add BKS fiels to mask _ | 
20 DAB 91 A9 1 CMPB FABSB_ORG(R8) .MFABSC_IDX: Branch if IDX organization 
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: Store remaining attributes fields per attmenu mask. 


oT mm: a BBC ee ARED ee: g ; Branch if not stream-based remote 


; file system 
The remote node is using a stream-based file system. 
: Assume that ORG = SEQ since the NTSCHK_ORG test was passed. 
This section deals with the DATATYPE, ORG, RFM, RAT, MRS, and ALQ fields. 


PART2A: BBS #FABSV_B ; Branch if block 1/0 mode 


05 
45 16 A8 FABSB_ PAC CRED, 50$ : 


NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:5 AX/VMS Macro V04-00 Page 
v04-000 NTSCREATE - PERFORM NETWORK CREATE FUNCT 5=SEP eats yi 8: 36; 38 RMS .SRCINTOCREATE .MAR; 1 . &) 
04 13 OQOAD 4 BEQL 10$ ; If not, it's REL organization 
OAF 5 $SSETBIT #DAPSV_M 3; Add MRN field to mask 
0B : 10$: $CASEB SELECTORS RP ABSB. RFM(RB)= ; Record format: 
0B DISPL=<- 3 
008 40$- ; UDF 
08 50$- s Ix 
008 1 ihe. s we 
008 § 40$- : STM 
NB i 3; SRMLF (first defined in DAP V7.0) 
3 : ‘. 0$- : STMCR (first defined in DAP v7.0) 
FF37° 31 § BRW NTSLCL_RFM : Declare RMS$_SUPPORT error and exit 
07 67 ¢6 fo 20$ BBS #DAP$V"GEQ_V70,(R7) ,40$ : Branch if partner uses DAP since ve. 0 
FF30° 1 8 BRW NTSRMT_RFM” ; Declare RMS$_SUPPORT error and exit 
9 30$: SSETBIT #OAPSV —FS2,R1 ; Add FSZ field to mask 
OA 67 ee E1 0 40S: BBC #DAPSV_GEQ_V54,(R7) ,50$ ; Branch if partner uses DAP before V5.4 
0108 ¢ D5 1 TSTL NUASL _FHCKABADR(R7) : Branch if user did not specify a 
5 13 ¢ BEQL 50$ : 
SSETBIT Fee APS$V_LRL,R1 : 
14 AB BS 4 50$: TSTW FABSW_ BEGCRS) : Branch if 
04 «13 5 BEQL 60$ : 
; 6 SSETBIT #DAP$V_DEQ1,R1 3 Add DEQ field to mask 
56 51 00 7? 608: MOVL R1,R ; Save attributes menu é ; 
FFOF' 30 3 8 BSBW = NT$CVT_BN4_EXT : Store attmenu as an extensible field 
320 
; 1 
323 
344 
345 
346 
347 
; 8 
4 
350 
4 | 
; 4 
5 
6 


| 

} 

HCXAB 
aud LRL field to mask 


; Based on RFM and RAT values, perform the following record format conversions 
; when creating a file in record 1/0 mode on a ‘stream-only’ machine: 


FIX-implied becomes STM-embedded, 
VAR-implied becomes STM-embedded, 
becomes STM-embedded, 
STM-embedded remains STM-embedded, 
and all other formats will be rejected. 


; Note that implied means RAT = CR and embedded means RAT = no carriage control 
; bits are set. 


PPPPPrPrPP PPP PPP PP NII Bs  -  SMD NUINUMOOLOTC OM 


Se Ge Ge Be Ge Ge Ge Ge Ge Se Ge Bee 
nm” 
— 
=z 
a 
— 
B 
~ 
@ 
a 


RK CREATE FILE 1 mi tae tty 43:38:86 AX/VMS Macro V04-00 Page 9. 
EATE = PERFORM NETWORK CREATE FUNCT -SEP-1984 16:20: RMS.SRCIN TOC REATE.MAR;1 (5) | 
OFA 71 SCASEB SELECTOR=FABSB_RFM(R8)= ; Record format: | 
OFA te DISPL=<- : 
OFA 7 108- ; UDF 
OOFA 74 ; $- ; FIX 
OOFA 75 a ; VAR 
OOFA 6 10$- : VFC | 
OOFA 7 20$- : STM 
OOFA 78 10$- i STMLF 
OOFA 79 10$- : STMCR 
OOFA 80 ; 
FEFO" 31 010D 81 10$: BRW NTSRMT : Declare RMS$_SUPPORT error and exit 
16 AB «405 = 93 B19 Ht 20$: BITB w<CrABER FIND! = ; Disallow Fortran and print file 
114 F ABSM_PRN>!- ; carriage control; implied and none 
0114 84 o> F ABSB_RAT(R8) ; are allowed 
OF 13 0116 385 BEL 40§ ; 
FEE7" 31 B18 86 BRW NTSRMT : Declare RMS$_SUPPORT error and exit 
011 387 30$: $SEIBIT WNWASV vt STM, (R7) ; Denote that file format will be 
011D $68 ’ : converted to stream at remote node | 
01 €0 0110 89 BBS : meyire implied carrie e control 
03 1£ A8 O11F 390 FASSE vant ire), 40$ ; e., <LF-record-CR | 
FEDB’ 31 8188 33) BRwW NT$ 3 Declare RMS$_SUPPORT eels and exit 
85 01 90 O12 8 408: MOVB SDAPSA ASCII, (R5)+ : Store DATATYPE field 
85 00 90 0128 39 MOVB  #DAP$K~SEQ .{ (R5)* : Store ORG field 
85 04 90 0128 $0 MOVB #DAPSK_STM, (R5)+ : Store RFM field 
85 10 90 O1ZE 395 MOVB = #DAPSM SeMBéDDED, (R5)+  } Store RAT field 
85 0202 8F B60 0151 339 MOVW #<512+2>, ( : Store MRS field (allow for CRLF which 
0136 97 ; .partner ma foreteer part of record) 
85 94 0135 398 CLRB = (R5) + : Store ALQ fiel ero | 
00C7 C7 04 90 0138 399 MOVB #DAPSK_STM,NWASB -RFM(R7); Overwrite eee REM field with new 
B10 400 converted value 
7? 68 Bie $3) BRB PART3 : Join common code | 
85 02 90 O13F 103 50$: MOVB #DAPSM_IMAGE,(R5)+ ; Store DATATYPE field 
85 00 90 bie8 404 MOVB #DAPS$K_SEQ,(R5)+ 3; Store ORG field 
85 01 90 014 405 MOVB #DAPSK_FIX,(R5)+ : Store RFM field 
85 94 0148 406 CLRB (R5) : Store RAT field 
0200 8F BO O14A 407 MOVW #512, (R5)+ ; Store MRS field 
51 10 A8& QO O14F $38 MOVL FABSL gg ie 3; Get allocation ayene tty ve vetue 
FEAA' 30 0153 40 BSBW NTSCVT_BN4_IMG ; Store ALQ as an image fie 
3E 11 #0156 410 BRB PA 3; Join common code 
0158 411 
0158 16 3 d 
0138 F 3 The remote node is NOT using a stream-based file system. 
015 $12 : This section deals with the DATATYPE, ORG, RFM, RAT, MRS, and ALQ fields. | 
138 417° 
85 be 90 15 418 PART2B: MOVB #DAPSM_IMAGE, (R5)+ ; Store IMAGE mode in DATATYPE field | 
0 EO 0158 419 BBS #FAB 10 : for block 1/0 access 
04 16 AB 15D 420 FABSB_FAC(AB) 108 ; and ASCII mod | 
FF AS O01 90 3180 421 MOVB #DAPSA_ASCII,-1(R5) : for record 1/0 access 
5 1D A8 90 0164 4 : 10$:  MOVB  FABSB_ORG(R 5. (R3)+ : Store ORG fiel 
8 1F A 9 168 4 MOVB FABSB_RFM(R8),(R5)+ 3; Store RFM field | 
046 FA 91 196 424 CMPB FABSB_RFMC(R8) ,#FABSC_ STM: Branch if not stream format 
OA ; 1 425 BNEQ 20$ 3 
1€ AB O07 9 17 4 § BITB #<<F ABSM_FTN>!- ; Force implied carriage control if 
176 4 <FABSM_CR>!- 3 user specified no explicit carriage 
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NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro V04-00 Page 1 
VOesoBO NISCREATE = PERFORM NETWORK CREATE FUNCT ~$Eb= 1382 93:36:58 RMS.SRCINTOCREATE.MAR; 1 . 18, 
176 §=6428 <FABSM_PRN>!- ; control 
176 429 > FABSB_RAT(R8) § 
04 1 126 430 BNEQ o$ ; 
43 Am 9 17 431 MOVB #FABSM_CR,FABSB_RAT(R8) ; 
a 1E As 90 O17C 4 : 20$:  MOVB FABSB_RAT (RB), (R5)+ : Store RAT field 
85 36 A 8 180 4 MOVW Saal stata >, (R5)+ 3; Store MRS field 
9? 1 184 434 BNEQ 30 ; Branch if non-zero 
05 67 1 §&1 0186 435 BBC #DAPSV_FCS,(R7) ,30$ : Branch if partner is not FCS based 
FE AS 48 A9 BO O18A 4 : MOVW  IFBSL_BEVBUFSIZ(R9),-2(R5); Specify maximum value 
51 10 A8 Be 18F 437 30S: MOVL FABSL_ALQ(R8) ,R1 : Get allocation quantity value 
FE6A’ 30 0196 ? } BSBW NTSCVT_BN4_IMG ; Store ALQ as an image field 
196 440; 
Bi3e stg ; This section deals with the BKS, FSZ, MRN, DEQ, FOP, and LRL fields. 
0196 443 ° 
04 56 = 07 4 0196 444 PART3: BBC #DAPS$V_BKS,R6,10$ : Used only if ORG = REL or IDX 
85  3E AB 90 O19A 445 MOVB  FABSB_BKS(R8),(R5)+ ; Store BKS field 
56 0 €1 O15 446 10$: BBC #DAP$T_FSZ,R6,20$ 3; Used only if RIM = VFC 
85 3F AB 90 OA 447 MOVB FABSB_FSZ(R8),(R5)+ 3; Store FSZ field 
04 12 O1A6 448 BNEQ 20$ ; Branch if non-zero 
FF AS O02 90 O1A8 449 MOVB #2,-1(R5) 3; Use default FSZ value 
07 56 09 E1 OAC 450 20$: BBC #DAPSV_MRN,R6, 308 3; Used only if ORG = REL 
51 38 A8 00 0180 451 MOVL FABSL_ARN(R8) RI ; Get maximum record number value 
FE49* 30 0184 $36 BSBW NTSCVT_BN4_IMG ; Store MRN as an inoge field 
04 56 OR €1 O1B87 453 30S: BBC #DAPSV_DEQT,R6,40$ 3; Used only if DEQ > 
85 14 A8 80 018B 454 MOVW FABS$W_BEQ(RS), (R5)+ : Store DEQ field 
0205 30 01BF 455 40$: BSBW NTSMAP_FOP ; Store FOP field 
09 56 19 +€1 O1C2 456 BBC #DAPSV_LRL,R6,50$ ; Used only if RFM not = FIX 
51 0108 C7 D0 01C6 457 MOVL NWASL_FHC ABADR(R7),R1 ; Get address of FHCXAB 
85 OA Al B80 O1CB 458 MOVW § XABSW-LRL(R1), (R5)+ ; Store LAL field 
FE2ZE' 30 OICF 459 50S: BSBW NT$BUILD TAIL ; Finish building message 
FE2B"' 30 0102 460 BSBW NTSTRANSMIT ; Send Attributes message to FAL 
03 3° 3 0105 461 BLBS RO,SEND_KEY ; Branch on success 
0080 31 01D8 462 BRW FAIL2 : Failure 


yn 
=< 


>>>>> >>? YY YP Prrrrrr,r 


eel eee ce came eee ee he i i i ie ee Be Di Bs i ek ee ee Be Be Be i Be ee Be Be 


WTNH HH 


= 


J 14 


' 
NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro V04-00 Page 11 | 
yoe +000 NTSCREATE = PERFORM NETWORK CREATE FUNCT ~$Fb= 1 382 5:38:38 RMS ..SRCINTOCREATE .MAR; 1 . (6) | 
1DB 464 + | 
H+ 182 ; Build and send DAP Key Definition message(s) to partner. 
Hh 68) ; Note: NTSSCAN_XABCHN determined that Key Definition XABs were Linked together. | 
1DB ies 
1DB 470 SEND_KEY: ; (optional message) 
01 €1 O1DB 471 BBC #DAPSV_DSP_KEY,= 3; Branch if mg! Definition message 
00D2 44 108 of6 uae BUILB(R7),- ; should not be sent 
56 © 010C 9 90 1E1 474 MOVL NWASC_KEYXABADR(R7),R6 ; Get address of first user KEYXAB 
FE17" 30 BiE8 475 108: BSBW NTSSCAN_KEYXAB 3; Scan the Key Definition XAB 
6F 50 9 OIE 476 BLBC RO,FAIL ; Branch on failure 
FE11' 0 O1EC 9477 BSBW  NTS$ENCODE_KEY : Build message 
FEOE' O1EF 478 BSBW NTSTRANSMIT 3 Send Key Definition message to FAL 
66 50 34 Bite 479 BLBC RO,FAIL ; Branch on failure 
011D C7 7 OF 480 DECB NWASB_KEYXABCNT(R7) 3; Any more KEYXABs to process? 
06 1B Q1F9 481 BLEQU §$ ; Branch if not . 
56 04 AG DO OIFB at) MOVL XABSC_NXT(R6) ,R6 3 Get address on next XAB in chain 
ES 11 OF 48 BRB 10$ ; Continue with next XAB 
4 484 
0201 485 ;+ 
bso! £38 3; Build and send DAP Allocation message(s) to partner. 
oso! rt +3 ; Note: NTSSCAN_XABCHN determined that Allocation XABs were chained together. 
0201 490 
0201 491 SEND_ALL: ; (optional message) 
0g E1 0201 o26 BBC #DAPS$V_DSP_ALL,- 3; Branch if Allocation message 
00D2 C OS0z $37 oe BUILB(R?S ,~ : should not be sent 
56 0100 C7 00 O50¢ 495 MOVL NWASC_ALLXABADR(R7),R6 ; Get address of first user ALLXAB 
FOF1® 30 O20C 496 10S: BSBW NTSSCAN_ALLXAB 3; Scan the Allocation XAB 
49 50 9 Q20F 497 BLBC RO,FAIL 3; Branch on failure 
FDEB' 30 0 iF 498 BSBW = NTSENCODE_ALL ; Build message 
FDE8' 30 021 499 BSBW NTSTRANSMIT 3 Send Allocation message to FAL 
40 50 €9 0218 500 BLBC RO,FAIL2 :; Branch on failure 
011C C7? «997 0218 501 DECB NWASB_ALLXABCNT(R7) 3; Any more Allocation XABs to process? 
06 18 O2IF 208 BLEQU SEND TI ; Branch if not , 
56 04 A600 8 $} 50 MOVL  XABSC_NXT(R6) ,R6 ; Get address on next XAB in chain 
ee 5 504 BRB 10$ ; Continue with next X 
0227 505 
0227 506 5+ | : 
8 g a4 3; Build and send DAP Date and Time message to partner. 
0 $f 509 ; Note: If the user supplied a Date and Time XAB it will be used to build the 
3 219 3 message, else the user supplied Revision Date and Time XAB will be used. 
0227 318 : 
8 7 13 SEND_TIM: : (optional message) 
04 =«€1 7 14 BBC #DAPSV_DSP_TIM,- ; Branch if Date and Time message 
00D2 7 8 ; i oe BUILB(R? 7 ; should not be sent 
56 0104 C7 00 3 313 MOVL NWASC_DATXABADR(R7),R6 ; Get address of user DATXAB 
1 3 BEQL $ ; Branch if none 
FOC9* 30 4 51 BSBW NTSENCODE_TIM_D 3; Build message 
08 11 37 = 520 BRB 20$ ; Join common code 


——_—————_————_——_— 
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NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro V04-00 Page 12 
v04-000 NTSCREATE = PERFORM NETWORK CREATE FUNCT ats 7 95:36:58 RMS.SRCINTOCREATE.MAR; 1 . (6) 
56 0114 C7 2 1 10$: MOVL NWASL_RDTXABADR(R7),R6 ; Get address of user RDTXAB instead 
FDBF' ‘ ¢ BSBW NTSENTODE_TIM_R ; Build message 
tg 7 4 208: BSBW NTSTRANSMTT ; Send Date and Time message to FAL 
14 E9 44 4 BLBC RO, FAIL 3; Branch on failure 
Be 
0 $f ; ; Build and send DAP Protection message to partner. 
47 9° 
0247 0 SEND_PRO: : (optional message) 
0S €1 0247 1 BBC #DAPS$V_DSP_PRO,- ; Branch if Protection message 
00D2 c7 0 49 : NWASW BUILB(R7S,- ; should not be sent 
56 0110 C7. DO 024D0 534 MOVL NWASC_PROXABADR(R7),R6 ; Get address of user PROXAB 
FDAB' 33 0 26 a3? BSBW NTSENTODE_PRO ; Build message 
FDA8' 30 025 536 BSBW NTSTRANSMIT ; Send Protection message to FAL 
0150 €8 9528 537 BLBS RO,SEND_ACC ; Branch on success 
05 0258 538 FAIL2: RSB ; Exit with RMS code in RO 
bsec 539 
025C 540 ;+ 
025C 541 ; Build and send DAP Access message to partner. 
025C¢ 226 3° 
O25C 54 
025C 544 SEND_ACC: : (required message) 
025C 545 SSETBIT #NWASV_LAST_MSG, (R7) ; Declare this last message to block 
50 03 be 0 $9 546 MOVL #DAPS$K_ACC , :; Get message type value 
FD9A' 30 026 547 BSBW NTSBUILD_HEAD 3; Construct seasege header 
85 02 90 $506 548 MOVB #DAPSK_CREATE, (R5)+ 3; Store ACCFUNC field 
85 01 90 0269 549 MOVB #DAPSM_NONFATAL,(R5)+ ; Store ACCOPT field : 
FO91' 30 026C 550 BSBW NTSCRC_INIT ; Initialize CRC value if both parties 
O26F 551 ; _support file level CRC computation 
0450 €9 O26F 226 LBC ,10$ ; Branch if CRC checking disabled 
FF AS 08 88 Q272 55 BISB2 #DAPSM_RET_CRC,-1(R5)  ; Request checksum option 
FD87" 30 0276 554 10$:  BSBW NTSGET-FILESPEC ; Store FILESPEC as a counted 
0279 555 3; ASCII apr ing 
b0C¢ 30 0279 556 BSBW NTS$SGET_FAC_SHR : Store FAC and SHR fields 
51 00D0 C 3C 027C 86557 MOVZWL NWASW BDISPCAY(R7),R1 ; Get request mask 
51 01 Bi 0281 558 CMPW #DAPSA_DSP_ATT,R1 ; Omit DISPLAY field from message if 
03 13 0284 559 BEQL 208 ; only Attributes message specified 
0286 560 ; (because some older FALs do not 
0286 561 3 support this field nor Ext Att msgs) 
FD77" 30 0286 266 BSBW NTSCVT_BN4 EXT ; Store DISPLAY as an extensible field 
FD74" 30 0289 563 20$: BSBW NTSBUICD TAIL ; Finish building message 
FD71" 30 8 8C 266 BSBW NTSTRAN ; Send Access message to FAL 
c9 50—s«éE9 8F 65 BLBC RO,FAIL2 ; Branch on failure | 
| 
| 
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NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro V04-00 Pa 13 
yous000 NTSCREATE = PERFORM NETWORK CREATE FUNCT ante 11 93:38:58 RMS .SRCINTOCREATE .MAR; 1 ” (7 
9 67 3+ 
9 ¢: : Receive DAP Attributes sessege from a and update the user FAB. 
9 } 3; Also update the user ALLXAB if an Allocation message will not be returned 
2 oY ; by FAL. 
8 9 i > Note: The user XAB chain is scanned again to probe all user XABs to protect 
9 73; from a user who deletes the address space where an XAB was 
029 74; previously found. 
0 g o 3° 
8 9 8 RECV_ATT: $ sroquiced message) 
9 A: SSETBIT #DAPSK_ATT_MSG,DAPSL_MSG_MASK(R7) 
9 7 ; Expect response of Attributes message 
FD66" 30 97 580 BSBW WISE ceive 3; Get reply from FAL 
3 50 £9 Q29A 581 BLBC RO, FAIL ; Branch on failure 
45 A? 90 029D 282 MOVB § DAP$B_ORG(R7).- ; Save file organization type 
00C6 C7 0 “ 58 NWAS$B_ORG(R7) : 
46 A? 90 O2A 584 MOVB DAP$B_RFM(R7),- : Save file format type 
00C7 C7 BS Ag 585 NWASB_RFM(R7) : 
FD54" 30 O2A9 586 BSBW NTSMAP_DEV_CHAR ; Process device characteristics 
OSat 888 
O2ac «589 : Update user control blocks. 
BAe gt 
56 D4 O2AC 236 CLRL R6 : Indicate this is not a close operation 
FO4F* 30 O2AE 59 BSBW NTSSCAN_XABCHN ; Scan user XAB List again 
47 50 3 0281 594 BLBC RO,FA ; Branch on failure to scan XABs 
0045 30 0284 595 BSBW CREATE_UPDATE_FAB : Update user FAB 
02 £0 0267 596 BBS ¥DAP$V-DSP_ALC,- ; Branch if Allocation message 
00D0 4 0¢B9 397 NuASW BISPLAY(R7) ,- ; was requested 
FD40" 30 beep 599 BSBW NTSDECODE_ALL_A ; Update user ALLXAB from fields in 
02c0 600 3; Attributes message (unless ORG = IDX) 
05C0 602 s+ 
02C0 $08 : Receive DAP Extended Attributes messages from partner and update the user 
i334 one : ALLXABs. 
O5¢5 606 ; Note: For indexed files, multiple Allocation messages may be returned. 
02c0 608 ° 
0 ‘8 609 RECV_EXT_ATT: ; (optional--must be requested) 
8 C 610 BBC #DAPSV_DSP_ALL,- : Branch if Allocation message was not 
0 C 11 NUASY BISPLAY(R7) .- > requested 
85¢8 $18 BSBW NTSRECV_EXT_ATT : Process Extended Attributes messages 
0209 §14 BLBC RO,FAIL3 : Branch on failure 
Osce S18 s+ 
bec els : Receive DAP (resultant) Name message from partner. 
CC 619° 
6 CC =©620 RECV_NAM: 3; (optional--must be requested) 
CC 621 BBC #DAPSV_DSP_NAM,- : Branch if Name message was not 
92CE 6 é NWASW_DISPCAY(R7),- : requested 
Ocbi 6 RECV_ACK : 


—EEEEOO a 
| 


M14 


NTOCREATE NETWORK CREATE FILE SEP-19 3: AX/VMS Macro Vv04-00 Page 14 
YOusOB0 NTSCREATE = PERFORM NETWORK CREATE FUNCT Passat 1 4 3 38: 38 RMS.SRCINTOCREATE .MAR; 1 . (7) 
Dé 624 SSETBIT #DAPSK_NAM MSG, DAPSL_MSG_MASK (R7) 
D 625 Expect resgonse of Name message 
pdge" 30 dD? 6 § BSBW wrsnece ive 3; Get reply from F 
1E 9 DA 6 BLBC ; Branch on failure 
FD20" 30 De ° 3 BSBW RYSDELDDE NAM 3; Process resultant name string 
E 630 ;+ 
£0 e 1 ; Receive DAP Acknowledge message from partner. 
BS ok 
O2EQ 634 RECV_ACK ; 
8 3 635 $SETBIT #DAPSK_ACK_MSG,DAPS$L _MSG_ 
E 636 ; Expect response " Acknowledge message 
FD18" 30 O2E5 637 BSBW wrong ce VE ; Get reply fro 2s 
10 50 €9 O2E8 638 BLBC RO L 3; Branch on tel lur 
O2EB 639 SseTeIT PieBSV -DAP_OPEN,(R9) Yes, denote FAL has opened file 
O2EF 640 RMSSU turn success 
05 67 06 €1 O2F2 641 BBC #NWASV_CVT_STM,(R7), FAILS: aeaien if no conversion will occur 
02F6 ot§ RMSERR CRE_STA ; Return alternate success to indicate 
O2FB 64 ; that file format will become stream 
05 O2FB 644 FAIL3: RSB 3 Exie wich RMS code in RO 


| 
| 
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wrocreate NET 
v04-0 CRE FAB “SEP- 


-SBTTL CREATE_UPDATE_FAB 


4 RMS .SRCINTOCREATE .MAR; 1 


Sea 

Updare th. user FAB from the Attributes message. 

Note: BLS will be updated directly in the FAB, whereas, ALQ will be updated 
in the IFB and then returned to the FAB by RMSOOPEN exit code. 

CREATE_UPDATE_F AB: 3; Entry point 


: Process the DAP BLS field. 


CMPB DAP$B_ORG(R7) ,ADAP$K_SEQ; Branch if not SEQ organization 


00 45 a7 m 
MOVW DAP$W_BLS(R7) ,FABSW_BLS(R8) 


3¢ AS 48 A? 


uw 
o-oo 
on— 


Process the DAP ALQ and HBK fields. 
Note: ALQ and HBK are equivalent, but not all non-VAX nodes return HBK. 


Sete te Ge we 


70 49 «-4C A? 10$:  MOVL = DAPS$L_ALQ1(R7), IFBSL_HBK(R9) 


OOO ee eeV—e | 


> Save FAB BKS field for use later by RMSOOPEN. 


20$: MOVB FABSB_BKS(R8), IFB$B_BKS(R9) 
RSB ; Exit 


| 
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NTOCREATE NETWORK CREATE FILE 15-SEP- AX/VMS Macro Vv04-00 Page 
v04-000 NTSCHK_ORG = CHECK FILE ORGANIZATION 5-SEP- 1984 3:36: 38 RMS.SRCIN NTOC REATE.MAR;1 . 
03 i ~SBTTL NTSCHK_ORG = CHECK FILE ORGANIZATION 
1 6 ++ 
O31 ess ; NTSCHK_ORG checks the ORG value against that supported by the remote FAL. 
O31 685 
031 686 NTSCHK_ORG:: Entry p point 
00 1D A8 91 QO312 687 CMPB FAB$B_ORG(R8) , #FABSC _SEQ: gnee ror Sequant tes organization 
07 12 b318 688 BNEQ 10$ : Branch i 
01 €0 Q31 689 BBS #DAP$V_SEQORG ; Branch if supported by partner 
1D 28 A7 031A 690 AP$Q_SYSCAP(R7),40$ —: 
Ht 11 a 691 BRB ; Error if no 
10 IDA 91 1F O36 10$: CMPB FABSB_ORG(R8) ,AFABSC_REL; Check for retative organization 
07 12 0323 69 BNEQ 20$ ; Branch if not 
02 €0 0325 694 BBS #DAPS$V_RELORG,- ; Branch if supported by partner 
10 28 A7 0327 695 DAP$Q VSYSCAPCR?), 40$ 3 
0B 11 O32A 696 BRB 30 ; Error if not 
20 DAB 91 O36 697 20$: CMPB FABSB_ORG(R8) ,AFABSC_IDX; Check for indexed organization 
05 12 0330 69 BNEQ 30$ : Error if not 
0B £0 0332 699 BBS #DAP$V ORG,- : Branch if” supported by partner 
03 28 A7 0334 700 DAP$Q gt eCAPeR?). 40$ : 
FCC6" 31 0337 £701 30$: BRW AT SRMT ORG ; Declare RMSS$_ mrront error and exit 
033A 702 40$: RMSSUC ; Return succes 
05 033D 703 SB 3; Exit with RMS “ole in RO 
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NTOCREATE N 
v04-000 Ni 


om 
m 
AP od 


.SBTTL NTSGET_FAC_SHR 


++ 
This routine builds the DAP FAC and SHR fields and stores them as extensible 
fields in the DAP message. 


Note: It is assumed that each of these fields can be encoded into one byte 
(i.e., that an extension byte is never needed). 


Note: The definitions of the bit offsets for the FAC field in the DAP and FAB 
control blocks are the same, whereas, the defintions of the bit offsets 
for the SHR field in these control blocks are slightly different. 


WIN AIAI.ANAAAAANAA oT 


CREAT 
AC_SH 
O33 70g 
EOF 
O33E 708 
QO33E 709 
O33E 710 
QO33E 711 
sk eee ¢ 
QO33—E 7 
O33E 714 
O33E 715 
O33E 716 
O33—E 717 
S33 : : NTSGET_FAC_SHR E i 
a i $% ; Entry point 
Q33E 720 
O355E fe ASSUME DAPS$V_GET EQ FABS$V_GET 
O33E 722 ASSUME DAPS$V~PUT EQ FABS$V~PUT 
O33E 723 ASSUME DAPSV_DEL EQ FABSV_DEL 
033E 724 ASSUME DAPS$V_UPD EQ FABSV_UPD 
O33E 725 ASSUME DAPSV_TRN EQ FABSV_TRN 
O33E 726 ASSUME DAP$V_BIO EQ FABS$V_BI 
O33E 727 ASSUME DAP$V~BRO EQ FARS$V~BRO 
O33E 728 
O33E 729 ;+ 
033E 730 ; First the FAC field. 
QO33E 731; 
033E 732 ; Note: If partner node is: 
O33E 733; (1) VAX/VMS since DAP V5.6 then map <GET,PUT,DEL,.UPD,TRN,BIO,BRO>. 
033E 734 ; (3 VAX/VMS before DAP V5.6 then map <GET,PUT,DEL,UPD,TRN,BIO>. 
O33E 735; (3) RMS based but not VAX/VMS map <GET,PUT,DEL,UPD,TRN,BIO>. 
O33E 736; (4) not RMS based then only map <GET,PUT,BIO>. 
033E 737 ; Note: In the above definition, include VAXELAN in the VAX/VMS check. 
033E 738 ; In addition, if partner is RT-11, then mask out <GET> on S$CREATE and 
O33E 739 ; mask out <PUT> on $OPEN. 
033E 740 ;:- 
O33E 741 
033E rs MAP_F AC 3 
22 A9 90 O33E 74 MOVB IFB$B_FAC(R9) , (R5) ; Store FAC field 
80 8F BA 0342 744 BICB2 #FABSA_EXE, (R5) ; Mask out this option but don't 
0346 745 ; _complain about it 
30 £0 0346 746 BBS #DAPSV_RMS,(R7) ,20$ :; Branch if partner is RMS based 
5¢ BF 6 BA 034A 747 BICB2 #<<DAPSM_DEL>!- : Mask out more bits 
O34E 748 <DAPSM_UPD>!~ ; 
34E 749 <DAPS$M_TRN>!- 3 
O34E 750 <DAP$M_BRO>/ - ; 
034E 751 >, (R5) : 
38 «E1 «(034E 138 BBC #DAPSV_RT11,(R7),40$  ; Branch if remote node is not RT-11 
32 £0 0352 «75 BBS #IFBSV~CREATE,(R9),10$ ;: Branch on $CREATE 
01 BA 0356 754 BICB2 #DAPSM~PUT, (R5) : Mask out <PUT> access on $SOPEN 
> 8697 «@359 86755 BRB 40$ 3 
02 8A 035B 756 108: BICB2 #DAPSM_GET,(R5) 3; Mask out <GET> access on SCREATE 
wo 6 tH; 757 BRB 3 t 
4 €1 6 758 208: BBC #DAPS$V_GEQ_ V56,(R7),30$ ; Branch if partner uses DAP before V5.6 
4 £0 0364 759 BBS #DAPSV-VAXOMS,(R7),40$ ; Branch if partner is VAX/VMS 
5 a 0368 760 BBS SOAP SYA VAXEL AD (R75,40$ ; Branch if portner ts VAXELAN 
40 8F A 036C 761 308% BICB2 #DAPS$M_BRO, RSS ; Mask out this option but don't 


NTOCREATE NETWORK CREATE FILE 15-SEP-1984 23:52: AX/VMS Macro V04-00 Page 
v04-000 NTSGET_FAC_SHR aS Epa 984 3:36:58 RMS ..SRCINTOCREATE.MAR; 1 ’ 
7 76 ; complain about it 
55 D6 O37 res 40$ INCL R5 ; Advance to next field in message 
037 ree i Next the SHR field 
; Nex e eld. 
037 reo ; 
b37 768 ; Note: If partner node is: 
37 769 ; (1) VAX/VMS since DAP V5.6 then map <GET,PUT,DEL,UPD,UPI,NIL>. 
037 770 ; ~=(2) VAX/VMS before DAP V5.6 then map <GET,PUT,DEL,UPD>. 
te aa! ; (3) mot VAX/VMS then map <GET,PUT> only. 
He ae 
0372 774 MAP_SHR: ; 
51 17 AB «GA 0372) «775 MOVZBL FABS$B_SHR(R8),R1 3; Get SHR bits 
52 D4 0376 776 CLRL R2 ; Clear resultant SHR bits 
0378 777 $MAPBIT FABSV_SHRPUT,DAPSV_SHRPUT; Map PUT bit 
0380 778 SMAPBIT FABSV_SHRGET,DAPSV_SHRGET; Map GET bit 
2467 34 €1 0388 779 BBC DAPSU_VAXVMS, (R7) + ; Branch if partner is not VAX/VMS 
038C 780 $MAPBIT FABSV_SHRDEL,DAPS$SV_SHRDEL; Map DEL bit : 
0394 781 SMAPBIT FABSV_SHRUPD ,.DAPS$V_SHRUPD; Map UPD bit 
10 67 246 €1 Q39C 782 BBC #DAPS0_GEQ_V56,(R7J,10$ ; Branch if partner uses DAP before V5.6 
03A0 783 S$MAPBIT FABSV_OPI ,BAPS$V_UPI ; Map UPI bit ~ 
O3A8 784 SMAPBIT FABSV_NIL,DAPSV_NIL ; Map NIL bit 
85 52 90 0380 785 10$: MOVB R2,(R5)+ 3; Store SHR field 
0383 786 
0383 787 ; - 
0383 788 ; The following is special code to handle an incompatibility in the processing 
0383 789 ; of the FAC/SHR fields that exists between VAX-11 RMS V3.0 and RMS-11 V1.8 
at a4 ; (and possibly with other file systems). 
0383 792 ; VAX-11 RMS allows FAC = <GET> and SHR = <GET!PUT> but RMS-11 objects to <PUT> 
o383 £3? ; in the SHR field unless <PUT> in the FAC field is also set. 
0383 795 ; The temporary solution is to mask out <PUT> in the SHR field in this 
0383 796 ; circumstance if the remote node is not VAX/VMS. 
0383 797; 
0383 8798 j 
OF 67 34 €0 0383 799 BBS #DAPSV_VAXVMS,(R7) ,20$ ; Branch if partner is VAX/VMS 
OA FF AS 00 £1 0387 800 BBC #DAPSV~SHRPUT,-1(R5),20$; Branch if PUT bitnot set in SHR 
05 FE AS 00 £0 O3BC 801 BBS #DAP$V-PUT,-2(R5),20$ ; Branch if PUT bitset in FAC 
03C1 802 SCLRBIT #DAPS$V_SHRPUT,-1(R5) ; Clear PUT bit in SHR field 
05 03C6 803 20$: RSB : Exit 
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p++ 
; This routine builds the DAP FOP field and stores it as an extensible field 
; in the DAP message. 


NTSMAP_FOP:: ; Entr ye 
51 04 AB DO MOVL  FABSL_FOP(RB),R1 : Get Fo 
52 4 CLRL R2 3; Clear resultant FOP bits 


The following DAP bits are defined in the DAP V4.1 specification. 
; These will be mapped. 


SMAPBIT FABSV_CTG,DAPSV_CTG 3; Map CTG bit 
SMAPBIT F ABSV~ SUP, DAP$V~ SUP 3; Map SUP bit 
SMAPBIT FABSV_TMP,DAPSV_TMP ; Map TMP bit 
SMAPBIT FABSV_TMD,DAPSV_TMD ; Map TMD bit 
sari FABSV_WCK ,DAPSV_WCK 3; Map WCK bit 
SMAPBIT FABSV_RCK ,DAPS$V_RCK ; Map RCK bit 
; ###HH SMAPBIT FABSV~DMO,DAPSV_DMO ; Map DMO bit. | 
3; Note: this is not implemented in RMS32 


The following DAP bits are defined in the DAP V4.1 specification. 
These will be mapped iff partner is VAX/VMS. 


20 67 34~ «€E1 BBC #DAPSV_VAXVMS ays = : Branch if partner is not VAX/VMS 

S$MAPBIT FABS$V_RWO,DAP$V_R ; Map RWO bit | 
SMAPBIT FABSV_RWC, DAPSV~ ~Rue : Map RWC bit 
SMAPBIT FABSV~POS ,DAP$V~POS ; Map POS bit 
SMAPBIT FABSV_NEF ,DAPSV_NEF : Map NEF bit 
; ##AHH SMAPBIT FABSV_CIF ,DAPSV_CIF : Map CIF bit 
; Note: this option is simulated, thus 

: it is not requested via FOP fi jeld 


The following DAP bits were defined in the DAP V4.2 specification. 

These will be mapped iff ete supports all of the requested options; else 
ignored for now=~they wil e-examined on close for potential alternate 
processing using a separate DAP access function. 
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COOOCOCOCOOCODBDOSCOSCCOOOCOCGOOCOOSO OO CCC OC SOOO OCOOCOCOCOCOOOOOOOCOOCOOOOoOOo 
00000000900 00 69 09 6d 09 09 00 09 09 Cd O90 Od Od Od 09 Od C0 Od Od Cd CO OD Od Od Cd OD OD 09 CD OD CD GD OD OD CD CO CD GD OD OD C9 C9 OD 00 00 C9 Co CODON 0000 
DD PVPS I BS Be ES ES EE EE ENA N INI NWI PIPUNPIPINPINI NPI NI 2 2 OO OO OO SK OOOOO 
DOONAN WIN 9 OD NAME WWM CO ODNAU EWN 0 OODNAU EWN O OONAUE WN OOONOU 


ASSUME FABS$V_SPL+1 EQ FABSV_SCF 
ASSUME FABSV_ SCF+1 EQ FABSV_DLT 
ASSUME DAPSV_FOPSPL+1 EQ DAPSV_FOPSCF 
ASSUME DAPSV_ FOPSCF+1 EQ DAPSV_FOPOLT 
54 51 O03 OD EF 10$: EXTZV #FABSV_SPL.#3,R1,R4 ; Extract the three FOP bits 
23.013 BEQL 0$ : Branch if none set 
03 1D €EF EXTZV #DAPSV_FOPSPL,#3,- ; Extract the three corresponding 
50 28 A7 DAPSa _SYSCAP(R7) .RO : SYSCAP bits 
54 50 CA BICL2 ROR ; Mask out supported requests 
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208: 


30$: 


SMAPBIT 
3; HAE SMAPBIT 
40$: MOVL 
BSBW 
RSB 


OO 00 00 00 00 0009 09 09 09 09 SI NI NINN NIN NSP AAO OOo 
ROOD NAME WIN OC OO NAME WI O OD NAUE 


- END 


: The following 
; These will be 
3 wi 


; *eeee SMAPBIT FA 
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; Brane® if any are 
p SPL bit 
: Map SCF bit 
T bit 
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not supported 


DAP bits were defined in the DAP V4.2 specification or Later. 
mapped iff partner is VAX/VMS and for MXV additional checks 


FABSV_OFP, ;DAPSV~ OFP 


R2,R1 
NTSCVT_BNG_EXT 


artner 
artner 
artner 
artner 


Branc 
Branc 
Branc 
hg 


=SSSs 


f 
t 
; Pp 
bit 
bit 
bit 
bit 
bit 
bit 
bit 


p 
Note: 


is VAX/VMS 

is VAXELAN 

is not RMS based 
uses DAP before V5.6 


it makes no sense to send this 


bit since all parsing is done locally 
Move data to correct register 


Store FOP as an extensi 


le field 


Exit with RMS code in RO 


End of module 
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Symbol table Breer ks 98536159 PAREVES acre y Ot OO oe fi, 


$$.PSECT_EP 2 9000009 DAPS$L_DCODE_STS 00 01 | 
$$COUNT = 00000 DAP$L DEV : | 
SSRMSTEST : QO000TA DAPS$L ~EBK 00 | 
$SRMS_PBUGCHK : 00019 DAPSL~FOP1 000064 | 
S$RMS~_ TBUGCHK = 0000000 DAPS$L~HBK 0000074 
SSRMSUMODE = 0000 004 DAPSL~MRN 0000058 | 
BUILD “MASK 9000 027 R 01 DAPSL~MSG_MASK 000001C | 
CREATE_UPDATE_FAB 000 sre R 01 DAPS$L_SBN aa fa 
DAP$B_ACCFUNC 0000004 DAPSL_SSPWA 0000080 
DAP$B~ACCOPT 00000041 DAPSL~TEMP 00000090 | 
DAP$B~BITCNT 00000035 DAPSM~ALQ1 = 00000040 | 
DAP$B~BKS 90000050 DAPSM"ASCII 2 9000001 | 
DAP$B~BSZ 000005 PSM~BITCNT = 00000008 | 
DAP$B DATATYPE 00000044 DAPSM~BRO = 00000040 | 
DAP$B~DCODE_F ID 00000019 DAPSM~CMPFMT = 00000008 
DAP$B~DCODE ~MAC 00000018 DAPSM~DATATYPE = 00000001 | 
DAP$B~DCODE -MSG 0000001A DAPSM~DEL = 00000004 
DAP$B~DECVE 00000047 DAPSM~DMO = 00002000 | 
DAPSB~E CONUM 00000045 DAPSM~DSP_3NAM = 00000200 | 
DAPSB~FAC 90000042 DAPSM~DSPZATT = 00000001 | 
DAP$B~F ILESYS 0000004 DAP$M~DSP~KEY = 00000002 
DAP$B~FLAGS 00000031 DAP$M~DSP~PRO = 00000020 
DAPSB~F S7 00000051 DAPSM~DSP~SUM = 00000008 | 
DAP$B~LEN256 00000034 DAPSM~DS = 00000010 | 
DAP$B~LENGTH 00000033 DAP$M~EMBEDDED = 00000010 
APS$B~ORG 00000045 DAPSM~FOP1 = 00001000 
DAP$B~OSTYPE 90000042 “GET = 00000002 
DAPSB-RAT 0000004 DAP$M~GO_NOGO = 00000010 
DAPSB_RFM 90000046 DAPSM~ IMAGE = 00000002 
DAP$B~SHR 0000004 “LSA = 00000040 | 
DAP$B~STREAMID 00000032 DAPSM“MACY11 = 00000080 
DAP$B_TYPE 00000030 “MRS = 00000020 | 
DAP$B~USRNUM 00000046 DAPSM"MSE = 00000010 | 
DAP$B-USRVER 00000048 DAPSM~NONF ATAL = 00000001 | 
DAP$B~VERNUM 00000044 DAPSM~ORG = 00000002 | 
DAP$SB-X_FIELD 00000024 DAPSM~PUT = 00000001 | 
DAP$C~BLN 000000C0 DAPSM~RAT = 00000008 | 
DAPS$K~ACC_MSG = 90000005 DAPSM~RET_CRC = 00000008 | 
DAPSK~ACK~ = 00000006 DAPSM~REM = 00000004 | 
DAPSK~ATT-MSG = 00000002 DAPSM~SEGMENT = 00000040 | 
AP$K~BL 00000000 DAPSM~TMP1 = 000000C0 | 
DAPS$K~ CREATE = 00000002 DAPSM-~TMP2$ = 0000F C00 | 
itty : 99000090 DAPSRTTMPGS = 09000000 | 
DAP$K—NAM_MSG = 660000 F DAPSM_TMP5$ = 0000000 
DAP$K~REL = 00000010 PS$M~TRN = 00000010 | 
DAP$K~SEQ 2 90000000 PSM~UPD = 00000008 | 
DAPSK~STM = 00000004 DAPSM~ZERO = 00000080 | 
DAPSK~STMCR : 90000 06 AP$Q"DCODE_FLG 00000000 | 
DAPSK~STMLF = 0000000 DAPSO~F ILE SPEC 90000044 | 
DAP$K~UDF = 00000000 DAPSQ"MSG_BUF1 90000 08 | 
DAPSK~VAR : 0008 DAP$Q"MSG~BUF 2 0000001 | 
APSK7VFC = 0000000 DAP$Q~PASSWORD 09 050 | 
AP$L~ALQ1 00 04C DAPSQ"RUNSYS | 
DAPSL~AT TMENU 0 O46 DAP$SQ~SYSCAP 00000 | 
APSL~CMWA 0000030 DAP$Q~SYSPEC 0 0 0 | 
DAPSL~CRC_RSLT 00000020 DAP$V~BIO = 00000005 | 
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_BKS 
“FOPOLT 
“FOPSCF 
FOPSPL 
v— SUP 
V-TEF 
v—TMD 
v- TMP 
V~TRN 
V-UPD 
V-UPI 
~VAXELAN 
“VAXVMS 


DAPS$V 
DAPS$V 
DAPS$V 


DAP$V 
DAPS$ 
DAP$ 
DAPS$ 
DAP$ 
DAPS$ 
DAP$ 
DAP$ 
DAP$V 
DAP$V 
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Symbol table Pan at 13:36:58 RMS.SRCINTOCREATE.MAR; 1 " Hi) 
FABSV_SCF = 0 NTSSCAN_ALLXAB eeneeeee =X 1 
F ABSV_SHRDEL = NTSSCAN_KEYXAB aeeeenee = X 1 
FABSV_SHRGET = NTSSCAN_NAMBLK eeneeeee =X 1 
FABSV_SHRPU = 0000 9 NTSSCAN_XABCHN eeeeeeee =X 1 
F ABSV_SHRUPD = 8 NTSTRANSMIT eeeeeeee = x 1 
V_SPL = 8 D NWASB_ALLXABCNT $08 11 
FABSV_SQ0 = $ 38 NWASB_DAP_RAC 0c 
FABSV_SUP = $ 000 NWASB_FILESYS 000C5 
FABSV_TEF = 00 o01¢ WASB_KEYXABCNT 1D 
FABSV_TMD = . 00 sags Be UES TT 6F 
FABSV_TMP = 0003 NWAS$SB_NODBUF S1Z 68 
FABSV_TRN = 300% NWASB_OR C6 
FABSV_UPD = 03 NWASB_OSTYPE C4 
FABSV_UPI = 00000006 NWASB_RFM C? 
FABSV_WCK = 00000009 NWASB_RMS_RAC c8 
FABSW_BLS = 00000035C NWA$C_BLN 00 
FABSW_DEQ = 00000014 NWASK_BLN 00 
FABSW_MRS = 00000036 NWASL_ALLXABADR 00 
FAIL 4 4TH R 01 NWASL_DATXABADR 04 
pais 00000258 R 4 NWASL_DEV co 
FAIL 000002FB R 0 NWASL_FHCXABADR 08 
1FBSB_ = 0000005 NWASL-KEYXABADR 0c 
IF BSB_FAC = 0000002 NWASL_MSG 4 
IFBSL_DEVBUF S12 = 0000004 NWASL_PROKABADR 0 
IFBSL_H = 00000070 NWASL_RDTXABADR 4 
IFBSL_NWA_PTR = 0000003C¢ NWASL_SAVE_FLGS 8 
IFBSV_CREATE = 00000032 NWASL_SUMXABADR 8 
1FBSV_DAP_OPEN = 0000003D NWASL_THREA C 
MAP_FAC OOO0033E R NWASL_XLTATTR 8 
MAP_SH 00000372 NWASL_XLTBUFFLG C 
NTSBUILD_HEAD teeeeeee NWASL_XLTCNT 8 
NTSBUILD- TAIL reeeeene NWASL_XLTMAXINDX 4 
NTSCHK_ORG 00000312 NWASL_XLTSIZ 0 
NTSCRC_INIT rtekeeee " 4 
NTSCREA 00000000 # 0 
NTSCVT_BN4_EXT 9 
C 
NT$D of eeeeeeee NWASQ_10SB 8 
NTSENCODE_ALL ateeeeee NWASQ-LNODE 0 
NTSENCODE_KEY eteeeeee NWA$SQ~LOGNAME C 
NTSENCODE_ PR reeerene NWASQ_NCB 4 
NTSENCODE_TIM_ reeeeene NWASQ_RCV 0 
NTSENCODE TIM_R rererene NWASQ_SAVE DESC 0 
XCH_C reeeeeee NWASQ_XLTBOF 1 ¢ 
8 
NTSLCL_ geteenee ff C 
NTSLCL_JOP teeeenee NWAST_AUXBUF 0 
NTSLCL_RFM eteeeree NWAST_ 0 
NTSMAP_DEV_CHAR teeneeee NWAST_ INODEBUF C 
NTSMAP~FOP 000003C7 NWAST_ITM_ATTR 00 
NTSRECEIVE teenenee NWAST_ITM_EN $¢ 
NTSRECV_EXT_ATT eeeneeee NWAST_ITM_LST 8 
NTSRMT_ORG eeeeenes NWAST_.‘ TM” MAXIND 1 
NTSRMT_RAT eeeenene NWAST_ 10K" STRING g¢ 
NTSRMT_RFM reeeenee NWAST_NCBBUF C 


0000033E 


geeeeeee 


p> > + + we + + + + See > + + + + + + + + 2. wee. 
fale lelelelelelelealeleleleloleolejlelelolelelelelelelelelolo) 
ee eed ead a ad ed aad ca ea ce ee ee ee ae ce ed ed ad ae et eed ee ed et cn ed ed ed ed 


NWASQ "XL TBUF 2 
NWASQ-X 
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Allocation 
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Soooecoco COCO OCOOCOOCOCOoOO 
ae Se Se ae Ser ener eer a ear ar er Par er Per Ser Perper ders 


PSECT No. Attributes 
9 ‘ 9. ) NOPIC USR CON ABS LCL Joo NOEXE NORD NOWRT NOVEC BYTE 
-) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
5 02 5: ») NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
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! Performance indicators ! 


formes moana maar oe eam awe + 


Phase Page faults CPU Time Elapsed Time 
Initialization 0: 9:00.09 0:0 80.61 
Command processing 1 0:00: Q- 7 8: 204.73 
Pass 3 0:00:15.49 :00:43.61 
Symbol table sort 00:00:01.77 0: 9:06. 6 
Pass 2 174 i 3.49 3: 8:8 .20 
Symbol table output 44 :00:00.36 :00:01.66 
Psect synopsis output 1 BO BR: 3-6 00:00:00.04 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totals 758 00:00:21.81 00:01:00.12 


The working set_Limit was 1650 pages. 

82442 bytes (162 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1277 non-local and 83 local symbols. 
891 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

31 pages of virtual memory were used to define 30 macros. 


wee em eecee ene ean cere eee enon nm $+ 


Macro Library name Macros defined 
.$255$DUA28: CRMS .OBJIRMS.MLB; 1 22 
$255$DUA28 : CSYSLIBISTARLET.MLB; 2 4 
TOTALS (all Libraries) 26 


1555 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOCREATE/OBJ=OBJ$:NTOCREATE MSRC$:NTOCREATE/UPDATE=(ENHS:NTOCREATE) +LIB$:RMS/LIB 
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